home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / c / xw2.000 / xw2 / xw / applications / bidirectional / startmove.mta < prev   
Encoding:
Text File  |  1994-12-17  |  2.5 KB  |  53 lines
  1.  
  2. Malloc(300); @start( ("move") ("bw") );
  3. @movemfx();            % Read MFX Group Definitions
  4. MFXGroup( Read MFI );
  5. MFXGroup( Read MFO );
  6.  % XbW Window definition for MFX Group mfi
  7.  
  8. wdw( WD01 1 1 20 10 StandardWDW );     % Get a Window
  9. @window/gimmicks( ("WD01") (" Program 'move' Test-Window 'WD01' (P) by XbW") );  % Get some buttons
  10.  
  11. $MFX:=mfi;   % Set MFX Group Name
  12. $WDW:=WD01;   % Set Window Name
  13. o( $WDW,("01") S . 1 3 9 1 Secure );   % This Object Exits XBW
  14. bg( $WDW,("01") . ("Exit XbW") );
  15.   cn( raK ("@stop();") );               % Macro to Exit XbW
  16.   eg();
  17. o( $WDW,("02") S T 11 3 30 1 Secure );   % This Object starts the User Program
  18. bg( $WDW,("02") . (" Start Program move") );
  19.   tk( ("") ("move") );              % Program name
  20.   cn( wbX ("mfi") );                % Write MFX Group Before Start
  21.   cn( raX ("mfo") );                % Read MFX Group after End
  22.   cn( rqK ("DrawAllWdw();") );      % Macro to Read After Drawing Queue
  23.   eg();
  24. o( $WDW,("05t") S . 1 5 8 1 Remark);bg( $WDW,("05t") . ("A") ); eg(); % Description
  25. o( $WDW,("05") I I 9 5 8 1 Standard);bg( $WDW,("05") . (ptr)MFX:$MFX.A ); eg(); % Integer Object
  26. o( $WDW,("06t") S . 1 6 8 1 Remark);bg( $WDW,("06t") . ("B") ); eg(); % Description
  27. o( $WDW,("06") I I 9 6 8 1 Standard);bg( $WDW,("06") . (ptr)MFX:$MFX.B ); eg(); % Integer Object
  28.  % XbW Window definition for MFX Group mfo
  29.  
  30. wdw( WD02 21 1 20 10 StandardWDW );     % Get a Window
  31. @window/gimmicks( ("WD02") (" Program 'move' Test-Window 'WD02' (P) by XbW") );  % Get some buttons
  32. $MFX:=mfo;   % Set MFX Group Name
  33. $WDW:=WD02;   % Set Window Name
  34. o( $WDW,("01") S . 1 3 9 1 Secure );   % This Object Exits XBW
  35. bg( $WDW,("01") . ("Exit XbW") );
  36.   cn( raK ("@stop();") );               % Macro to Exit XbW
  37.   eg();
  38. o( $WDW,("02") S T 11 3 30 1 Secure );   % This Object starts the User Program
  39. bg( $WDW,("02") . (" Start Program move") );
  40.   tk( ("") ("move") );              % Program name
  41.   cn( wbX ("mfi") );                % Write MFX Group Before Start
  42.   cn( raX ("mfo") );                % Read MFX Group after End
  43.   cn( rqK ("DrawAllWdw();") );      % Macro to Read After Drawing Queue
  44.   eg();
  45. o( $WDW,("07t") S . 1 7 8 1 Remark);bg( $WDW,("07t") . ("A") ); eg(); % Description
  46. o( $WDW,("07") I I 9 7 8 1 Standard);bg( $WDW,("07") . (ptr)MFX:$MFX.A ); eg(); % Integer Object
  47. o( $WDW,("08t") S . 1 8 8 1 Remark);bg( $WDW,("08t") . ("B") ); eg(); % Description
  48. o( $WDW,("08") I I 9 8 8 1 Standard);bg( $WDW,("08") . (ptr)MFX:$MFX.B ); eg(); % Integer Object
  49.  
  50. SelectWdw( ("W001") );
  51. End();
  52.  
  53.